
Partial Class Content_P004
    Inherits System.Web.UI.Page

    Protected Sub btnFind_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        If Me.txtDate.Text <> "" And Me.txtToDate.Text <> "" Then
            Me.Response.Redirect("P004_REP_N.aspx?date=" + Me.txtDate.Text + "&tdate=" + Me.txtToDate.Text)
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '-----Chect Authority--------
        Dim role_prg = "P004"
        Dim user_id = Session("user_id")
        Dim cls_aut As New AUTHORITY

        If cls_aut.DoCheck(user_id, role_prg) = "0" Then
            Me.Response.Redirect("ERROR_AUT.aspx")
        End If
    End Sub
End Class
